home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / WebObjects / SourceCode / Scheduler / Main.wo / Main.wos < prev   
Text File  |  1996-01-25  |  2KB  |  67 lines
  1. /*
  2.  *   Main.wos
  3.  *   You may freely copy, distribute, and reuse the code in this example.
  4.  *   NeXT disclaims any warranty of any kind, expressed or  implied, as to its
  5.  *   fitness for any particular use.
  6.  *    
  7.  *     Written by Katie McCormick
  8.  *
  9.  */
  10.  
  11. id date;
  12.  
  13. - awake 
  14. {
  15.     id now, dateString;
  16.     now = [NSCalendarDate date];
  17.     dateString = [now descriptionWithCalendarFormat:@"%B %d, %Y"];
  18.  
  19.     // display the current date in the text field
  20.     if(!date)
  21.     date = dateString;
  22. }
  23.  
  24.  
  25. - computeMilestones {
  26.     id nextPage, finalDate, fcsDate, relDate, addendumDate, freezeDate;
  27.     
  28.     fcsDate = [NSCalendarDate dateWithString:date calendarFormat:@"%B %d, %Y"];
  29.  
  30.     // if that day is a Saturday, drop back to Friday
  31.     if ([fcsDate dayOfWeek] == 6) 
  32.     fcsDate = [fcsDate addYear:0 month:0 day:-1 hour:0 minute:0 second:0];    
  33.     
  34.     // if that day is a Sunday, go ahead to Monday
  35.     if ([fcsDate dayOfWeek] == 0) 
  36.     fcsDate = [fcsDate addYear:0 month:0 day:+1 hour:0 
  37.         minute:0 second:0];
  38.  
  39.     // final production    
  40.     finalDate = [fcsDate addYear:0 month:0 day:-42 hour:0 minute:0 second:0];
  41.                 
  42.     // release notes
  43.     relDate = [fcsDate addYear:0 month:0 day:-49 hour:0 minute:0 second:0];        
  44.  
  45.     // freeze
  46.     freezeDate = [fcsDate addYear:0 month:0 day:-35 hour:0 minute:0 second:0];
  47.                  
  48.     // addendum    
  49.     addendumDate = [fcsDate addYear:0 month:0 day:-28 hour:0 
  50.         minute:0 second:0];
  51.             
  52.     nextPage=[WOApp pageWithName:@"Dates"];     
  53.     
  54.     // change the format of the dates to include the day of the week
  55.     [nextPage setFcs:[fcsDate descriptionWithCalendarFormat:
  56.         @"%A, %B %d, %Y"]];
  57.     [nextPage setFinalProd:[finalDate descriptionWithCalendarFormat:
  58.         @"%A, %B %d, %Y"]];
  59.     [nextPage setRelNotes:[relDate descriptionWithCalendarFormat:
  60.         @"%A, %B %d, %Y"]];
  61.     [nextPage setFreeze:[freezeDate descriptionWithCalendarFormat:
  62.         @"%A, %B %d, %Y"]];
  63.     [nextPage setAddendum:[addendumDate descriptionWithCalendarFormat:
  64.         @"%A, %B %d, %Y"]];
  65.     return nextPage; 
  66. }
  67.